﻿Imports Control_Vuelos_BL
Imports Control_Vuelos_BE
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DevExpress.XtraBars.Ribbon
Imports System.Reflection
Imports DevExpress.XtraBars.Ribbon.Handler
Imports DevExpress.XtraBars.Ribbon.ViewInfo
Imports DevExpress.Utils
Imports DevExpress.XtraEditors

Public Class frmChk_Arribo
    Inherits frmBaseMantenimiento
    Private ReadOnly _V_Reservas As New V_ReservaBL()
    ReadOnly V_Maestros As New MaestrosBL()
    Private ReadOnly _Manifiesto As New ManifiestoBL()
    Private ReadOnly _ProgramaViaje As New ProgramaViajeBL()
    Private _MPersonal As New Movimiento_PersonalBL()
    Private p_CodViaje As String
    Private p_CodLugarOrigen As String
    Private p_CodLugarDestino As String
    Private p_CodEmpresa As String
    Private ReadOnly p_Contacto As String
    Private ReadOnly p_EstadoManifiesto As String
    Private p_FchViaje As Date
    Private p_FlgValija As Boolean
    Private p_HraViaje As String
    Private p_NomAeropuerto As String
    Private p_ObsCabeceraManifiesto As String
    Private p_DesLugarOrigen As String
    Private p_DesLugarDestino As String
    Private p_NomEmpresa As String
    Private tbTipoPasajero, tbAnalisis, tbCuentas, tbLugar As New DataTable
    Private nopc As Integer = 0
    Private stippas, scodanl, scenco1, snropri, scenco2, slugres, sestres As String
    Private vReservaBL As New V_ReservaBL
    Private vReservaBE As New V_ReservaBE
    Private mPasajeroBL As New PasajeroBL
    Private mPasajeroBE As New M_PasajeroBE
    Private p_CodPasajero As String
    Private p_MailPasajero As String
    Private p_TlfPasajero As String
    Private p_RpcPasajero As String
    Private p_cntroCostos2 As String

    Private Sub frmChk_Arribo_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        AddHandler ModAdm_Checking1.TreeList1.FocusedNodeChanged, AddressOf pr_Select_Tree
        AddHandler ModAdm_Checking1.TreeList2.FocusedNodeChanged, AddressOf pr_Select_TreeCerrado
        AddHandler ModAdm_Checking1.BtnNewPasajero.ItemClick, AddressOf pr_activa_NewPasajero
        AddHandler ModAdm_Checking1.ModChkArriboNuevo1.cmdCancel.Click, AddressOf pr_desactiva_NewPasajero
        AddHandler ModAdm_Checking1.ModChkArriboNuevo1.cmdOk.Click, AddressOf pr_ClickGrabar
        AddHandler ModAdm_Checking1.ModChkArriboNuevo1.txtNroDocumentoId.Validating, AddressOf pr_ValidarDni
        AddHandler ModAdm_Checking1.GridView1.InitNewRow, AddressOf pr_AgregarGrid
        AddHandler ModAdm_Checking1.GridView1.ValidatingEditor, AddressOf pr_ValidarGrid
        AddHandler ModAdm_Checking1.RepositoryItemImageComboBox4.EditValueChanged, AddressOf pr_ValidarExcepcion
        AddHandler ModAdm_Checking1.BtnCheckIN.ItemClick, AddressOf pr_Checkin
        AddHandler BarBtnRefresh.ItemClick, AddressOf pr_Refresh
        BarBtnCancelar.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        BarBtnImprimir.Visibility = DevExpress.XtraBars.BarItemVisibility.Never

        pr_Refresh()
        tbTipoPasajero = V_Maestros.Get_TipoPasajero()
        ' tipo de pasajero
        ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.Properties.DataSource = tbTipoPasajero

        tbLugar = V_Maestros.Get_LugarResidencia()
        'lugar de residencia
        ModAdm_Checking1.ModChkArriboNuevo1.cboResidencia.Properties.DataSource = tbLugar

        tbAnalisis = V_Maestros.Get_Analisis("")
        ' analisis 
        ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.Properties.DataSource = tbAnalisis
        ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.Properties.View.BestFitColumns()

        tbCuentas = V_Maestros.Get_Cuentas(" AND (codcta like '9%')")
        ' centro de costos
        ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.Properties.DataSource = tbCuentas
        ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.Properties.View.BestFitColumns()
    End Sub

    Private Sub pr_Refresh()
        ModAdm_Checking1.TreeList1.DataSource = _ProgramaViaje.ListarProgramaViajeTreeListChecking("1", p_coduser)
        ModAdm_Checking1.TreeList1.ExpandAll()
        ModAdm_Checking1.TreeList1.BestFitColumns()
        ModAdm_Checking1.GridControl1.DataSource = _Manifiesto.ListarManifiesto("")
        ModAdm_Checking1.GridView1.BestFitColumns()
        ModAdm_Checking1.LCNuevoArribo.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
        ModAdm_Checking1.TreeList2.DataSource = _ProgramaViaje.ListarProgramaViajeTreeListCheckingCerrado("2", p_coduser)
        ModAdm_Checking1.TreeList2.ExpandAll()
        ModAdm_Checking1.TreeList2.BestFitColumns()
    End Sub

    Private Sub pr_Checkin()
        ModAdm_Checking1.GridView1.PostEditor()
        ModAdm_Checking1.GridView1.MoveFirst()
        Dim oDialogResult As System.Windows.Forms.DialogResult
        Dim sfrmChk As New frmChk_ArriboMessage
        sfrmChk.Text = " Realizando el Check-IN de pasajeros "
        sfrmChk.npMain.Text = " Se procederá a confirmar el arribo de los pasajeros. " & Constants.vbCrLf & " Además, se procederá a generar las reservas de retorno.  " & Constants.vbCrLf
        oDialogResult = sfrmChk.ShowDialog()
        If oDialogResult = System.Windows.Forms.DialogResult.OK Then
            Dim sTextoCheck As String = ""
            Dim sTextoNew As String = ""
            Dim sTextoNoArribo As String = ""
            Dim sTextoBajaron As String = ""
            Dim i As Integer
            For i = 0 To ModAdm_Checking1.GridView1.RowCount - 1
                Dim DRPasajero As DataRow
                DRPasajero = CType(ModAdm_Checking1.GridView1.GetDataRow(i), DataRow)
                Dim bFlgCheckin As Boolean = CType(DRPasajero("FlgChecking"), Boolean)
                Dim sTipPorExcepcion As String = CType(IIf(IsDBNull(DRPasajero("TipPorExcepcion")), "", DRPasajero("TipPorExcepcion")), String)
                If bFlgCheckin = True Then
                    If IsDBNull(sTipPorExcepcion) = False Then
                        If sTipPorExcepcion = "1" Then
                            sTextoNew = String.Format("{0}* {1} {2} {3}{4}", sTextoNew, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                        Else
                            sTextoCheck = String.Format("{0}* {1} {2} {3}{4}", sTextoCheck, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                        End If
                    Else
                        sTextoCheck = String.Format("{0}* {1} {2} {3}{4}", sTextoCheck, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                    End If
                Else
                    If IsDBNull(DRPasajero("TipPorExcepcion")) = False Then
                        If DRPasajero("TipPorExcepcion") = "2" Then
                            sTextoNoArribo = String.Format("{0}* {1} {2} {3}{4}", sTextoNoArribo, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                        Else
                            sTextoBajaron = String.Format("{0}* {1} {2} {3}{4}", sTextoBajaron, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                        End If
                    Else
                        sTextoNoArribo = String.Format("{0}* {1} {2} {3}{4}", sTextoNoArribo, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                    End If
                End If
            Next
            Dim sFrmChkPasajero As New frmChk_ArriboMessage
            sFrmChkPasajero.Text = " Confirmando el Check-IN "
            sFrmChkPasajero.npMain.Text = IIf(sTextoCheck Is String.Empty, "", String.Format(" Pasajeros Checkeados {0}{0}{1}{0}", Constants.vbCrLf, sTextoCheck)) & _
            IIf(sTextoNew Is String.Empty, "", String.Format(" Pasajeros Nuevos {0}{0}{1}{0}", Constants.vbCrLf, sTextoNew)) & _
            IIf(sTextoNoArribo Is String.Empty, "", String.Format(" Pasajeros No arribaron {0}{0}{1}{0}", Constants.vbCrLf, sTextoNoArribo)) & _
            IIf(sTextoBajaron Is String.Empty, "", String.Format(" Pasajeros Bajados del vuelo {0}{0}{1}{0}", Constants.vbCrLf, sTextoBajaron))
            sFrmChkPasajero.Height = 500
            oDialogResult = sFrmChkPasajero.ShowDialog()
            Dim DtManifiesto As DataTable = CType(ModAdm_Checking1.GridControl1.DataSource, DataTable)
            If oDialogResult = System.Windows.Forms.DialogResult.OK Then
                If _MPersonal.fn_GrabarCheckInPasajeros(DtManifiesto, p_CodViaje) Then
                    pr_Refresh()
                End If
            End If
        End If
    End Sub

    Private Sub pr_ValidarExcepcion(sender As Object, e As System.EventArgs)
        ModAdm_Checking1.GridView1.PostEditor()
        Dim aImageComboBox As ImageComboBoxEdit = CType(sender, ImageComboBoxEdit)
        Dim oFlgChecking As Boolean = Convert.ToBoolean(ModAdm_Checking1.GridView1.GetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "FlgChecking"))
        Dim oCodReserva As Integer = Convert.ToInt32(IIf(IsDBNull(ModAdm_Checking1.GridView1.GetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "CodReserva")), 0, ModAdm_Checking1.GridView1.GetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "CodReserva")))
        If aImageComboBox.SelectedItem.ToString = "No Embarcó" AndAlso oFlgChecking = True Then
            DevExpress.XtraEditors.XtraMessageBox.Show(" No puede tener checking si el pasajero no embarcó...")
            ModAdm_Checking1.GridView1.SetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "FlgChecking", False)
        End If
        If aImageComboBox.SelectedItem.ToString = "Bajado del Vuelo" AndAlso oFlgChecking = True Then
            DevExpress.XtraEditors.XtraMessageBox.Show(" No puede tener checking si al pasajero lo bajaron del vuelo...")
            ModAdm_Checking1.GridView1.SetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "FlgChecking", False)
        End If
        If aImageComboBox.SelectedItem.ToString = "Adicionado al Manifiesto" Then
            If oCodReserva > 0 Then
                DevExpress.XtraEditors.XtraMessageBox.Show(" El Pasajero no es nuevo ")
                ModAdm_Checking1.GridView1.SetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "TipPorExcepcion", "0")
            End If
        End If
    End Sub

    Private Sub pr_ValidarGrid(ByVal sender As Object, ByVal e As DevExpress.XtraEditors.Controls.BaseContainerValidateEditorEventArgs)
        Try
            Dim View As GridView = CType(sender, GridView)
            If View.FocusedColumn.FieldName = "FlgChecking" Then
                'Get the currently edited value 
                Dim oFlgChecking As Boolean = Convert.ToBoolean(e.Value)
                'Specify validation criteria 
                Dim oTipPorExcepcion As String = View.GetRowCellValue(View.FocusedRowHandle, "TipPorExcepcion").ToString
                If oTipPorExcepcion = "1" AndAlso oFlgChecking = False Then
                    e.Valid = False
                    e.ErrorText = " El Checking no puede estar vacío porque es un pasajero nuevo... "
                    View.SetRowCellValue(View.FocusedRowHandle, "FlgChecking", True)
                End If
                If oTipPorExcepcion = "2" AndAlso oFlgChecking = True Then
                    e.Valid = False
                    e.ErrorText = " No puede tener checking si el pasajero no embarco..."
                    View.SetRowCellValue(View.FocusedRowHandle, "FlgChecking", False)
                End If
                If oTipPorExcepcion = "3" AndAlso oFlgChecking = True Then
                    e.Valid = False
                    e.ErrorText = " No puede tener checking si al pasajero lo bajaron del vuelo..."
                    View.SetRowCellValue(View.FocusedRowHandle, "FlgChecking", False)
                End If
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub pr_ClickGrabar()
        ModAdm_Checking1.GridView1.AddNewRow()
    End Sub

    Private Sub pr_AgregarGrid(sender As Object, e As DevExpress.XtraGrid.Views.Grid.InitNewRowEventArgs)
        Dim view As GridView = TryCast(sender, GridView)
        view.SetRowCellValue(e.RowHandle, view.Columns("FlgChecking"), True)
        view.SetRowCellValue(e.RowHandle, view.Columns("FlgLock"), 1)
        view.SetRowCellValue(e.RowHandle, view.Columns("FlgResponsable"), 0)
        view.SetRowCellValue(e.RowHandle, view.Columns("AppPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtAppPasajero.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("ApmPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtApmPasajero.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("NomPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtNomPasajero.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("NroDocumentoId"), ModAdm_Checking1.ModChkArriboNuevo1.txtNroDocumentoId.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("TipPorExcepcion"), "1")
        view.SetRowCellValue(e.RowHandle, view.Columns("ObsManifiesto"), "Pasajero ingresado fuera de manifiesto ")
        view.SetRowCellValue(e.RowHandle, view.Columns("CodAnalisis"), ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("CodCentroCosto"), ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("TipPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("FchRetorno"), ModAdm_Checking1.ModChkArriboNuevo1.cboFchRetorno.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("NacionalidadPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtNacionalidad.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("MailPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtEmail.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("TlfPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtTelefono.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("RpcPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtMovil.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("CodLugarResidencia"), ModAdm_Checking1.ModChkArriboNuevo1.cboResidencia.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("FchViaje"), CType(p_FchViaje, Date))
        view.SetRowCellValue(e.RowHandle, view.Columns("CodLugarOrigen"), p_CodLugarOrigen)
        view.SetRowCellValue(e.RowHandle, view.Columns("CodViaje"), p_CodViaje)
        If ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.EditValue = "1" Then
            view.SetRowCellValue(e.RowHandle, view.Columns("Desanl"), "Personal Empresa")
        Else
            view.SetRowCellValue(e.RowHandle, view.Columns("Desanl"), ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.Text.Trim)
        End If
        view.PostEditor()
        pr_LimpiarEntradaDatos()
        pr_desactiva_NewPasajero()
    End Sub

    Private Sub pr_LimpiarEntradaDatos()
        ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.cboFchRetorno.DateTime = Date.Now
        ModAdm_Checking1.ModChkArriboNuevo1.txtNroDocumentoId.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtAppPasajero.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtApmPasajero.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtNomPasajero.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.cboResidencia.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtEmail.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtNacionalidad.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtMovil.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtTelefono.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.chkAsumeMarsa.EditValue = False
        ModAdm_Checking1.ModChkArriboNuevo1.chkPermiso.EditValue = False
        ModAdm_Checking1.ModChkArriboNuevo1.chkPrestamo.EditValue = False
    End Sub

    Private Sub pr_ValidarDni(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim edit As DevExpress.XtraEditors.TextEdit = CType(sender, DevExpress.XtraEditors.TextEdit)
        If validarDni(edit.EditValue) Then
        End If
    End Sub

    Public Sub pr_desactiva_NewPasajero()
        ModAdm_Checking1.LCNuevoArribo.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
    End Sub

    Public Sub pr_activa_NewPasajero()
        ModAdm_Checking1.LCNuevoArribo.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
    End Sub

    Public Sub pr_Select_Tree(ByVal sender As System.Object, ByVal e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs)
        ModAdm_Checking1.BtnCheckIN.Enabled = True
        ModAdm_Checking1.BtnNewPasajero.Enabled = True
        If e.Node.ParentNode Is Nothing Then
            ModAdm_Checking1.GridBand1.Caption = "Manifiesto  "
            ModAdm_Checking1.GridControl1.DataSource = Nothing
            BarBtnImprimir.Enabled = False
        Else
            ModAdm_Checking1.GridBand1.Caption = String.Format("Manifiesto : {0} - {1} : {2}", e.Node.GetValue(0), e.Node.GetValue(1), Format(e.Node.GetValue(3), "dd/MM/yyyy"))
            p_CodViaje = e.Node.GetValue(0)
            p_DesLugarOrigen = e.Node.ParentNode.GetValue(0)
            p_DesLugarDestino = e.Node.GetValue(1)
            p_FchViaje = e.Node.GetValue(3)
            p_NomEmpresa = e.Node.GetValue(2)
            p_CodEmpresa = e.Node.GetValue(6)
            p_CodLugarOrigen = e.Node.GetValue(7)
            p_CodLugarDestino = e.Node.GetValue(8)
            ModAdm_Checking1.GridControl1.DataSource = _Manifiesto.ListarManifiesto(p_CodViaje)
            ModAdm_Checking1.GridView1.OptionsBehavior.Editable = True
            If ModAdm_Checking1.GridView1.RowCount > 0 Then
                BarBtnImprimir.Enabled = True
            Else
                BarBtnImprimir.Enabled = False
            End If
        End If
    End Sub

    Public Sub pr_Select_TreeCerrado(ByVal sender As System.Object, ByVal e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs)
        ModAdm_Checking1.BtnCheckIN.Enabled = False
        ModAdm_Checking1.BtnNewPasajero.Enabled = False
        If e.Node.ParentNode Is Nothing Then
            ModAdm_Checking1.GridBand1.Caption = "Manifiestos con Check-In"
            ModAdm_Checking1.GridControl1.DataSource = Nothing
            BarBtnImprimir.Enabled = False
        Else
            ModAdm_Checking1.GridBand1.Caption = String.Format("Manifiesto con Check-In: {0} - {1} : {2}  (Cerrado)", e.Node.GetValue(0), e.Node.GetValue(1), Format(e.Node.GetValue(3), "dd/MM/yyyy"))
            p_CodViaje = e.Node.GetValue(0)
            p_DesLugarOrigen = e.Node.ParentNode.GetValue(0)
            p_DesLugarDestino = e.Node.GetValue(1)
            p_FchViaje = e.Node.GetValue(3)
            p_NomEmpresa = e.Node.GetValue(2)
            p_CodEmpresa = e.Node.GetValue(6)
            p_CodLugarOrigen = e.Node.GetValue(7)
            p_CodLugarDestino = e.Node.GetValue(8)
            ModAdm_Checking1.GridControl1.DataSource = _Manifiesto.ListarManifiesto(p_CodViaje)
            ModAdm_Checking1.GridView1.OptionsBehavior.Editable = False
            If ModAdm_Checking1.GridView1.RowCount > 0 Then
                BarBtnImprimir.Enabled = True
            Else
                BarBtnImprimir.Enabled = False
            End If
        End If
    End Sub

    Private Function validarDni(ByVal p_codigoidentificacion As String) As Boolean
        ' busco el numero de dni y si existe muestro los datos sino se crea
        Dim ncod As Integer = mPasajeroBL.TraerCodigo(p_codigoidentificacion)
        mPasajeroBE = mPasajeroBL.TraerPasajero(ncod)
        If mPasajeroBE.CodPasajero > 0 Then
            p_CodPasajero = mPasajeroBE.CodPasajero
            ModAdm_Checking1.ModChkArriboNuevo1.txtNroDocumentoId.EditValue = mPasajeroBE.NroDocumentoId
            ModAdm_Checking1.ModChkArriboNuevo1.txtAppPasajero.EditValue = mPasajeroBE.AppPasajero
            ModAdm_Checking1.ModChkArriboNuevo1.txtApmPasajero.EditValue = mPasajeroBE.ApmPasajero
            ModAdm_Checking1.ModChkArriboNuevo1.txtNomPasajero.EditValue = mPasajeroBE.NomPasajero
            ModAdm_Checking1.ModChkArriboNuevo1.txtNacionalidad.EditValue = mPasajeroBE.NacionalidadPasajero
            ModAdm_Checking1.ModChkArriboNuevo1.txtTelefono.EditValue = mPasajeroBE.TlfPasajero
            ModAdm_Checking1.ModChkArriboNuevo1.txtMovil.EditValue = mPasajeroBE.RpcPasajero
            ModAdm_Checking1.ModChkArriboNuevo1.txtEmail.EditValue = mPasajeroBE.MailPasajero
            ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.EditValue = mPasajeroBE.CodAnalisis
            ModAdm_Checking1.ModChkArriboNuevo1.cboResidencia.EditValue = mPasajeroBE.CodLugarResidencia
            p_TlfPasajero = mPasajeroBE.TlfPasajero
            p_RpcPasajero = mPasajeroBE.RpcPasajero
            p_MailPasajero = mPasajeroBE.MailPasajero
        End If

        If ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.EditValue = "1" Then
            Dim _TCentroCostoVE As New T_CentroCostoTrabajadorVE
            Dim _TCentroCosto As New T_CentroCostoTrabajadorBL
            _TCentroCostoVE = _TCentroCosto.pr_RecuperarTrabajador(p_codigoidentificacion)
            If _TCentroCostoVE.apellidopaterno <> "" Then
                ModAdm_Checking1.ModChkArriboNuevo1.txtAppPasajero.EditValue = _TCentroCostoVE.apellidopaterno
                ModAdm_Checking1.ModChkArriboNuevo1.txtApmPasajero.EditValue = _TCentroCostoVE.apellidomaterno
                ModAdm_Checking1.ModChkArriboNuevo1.txtNomPasajero.EditValue = _TCentroCostoVE.nombres
                ModAdm_Checking1.ModChkArriboNuevo1.txtTelefono.EditValue = _TCentroCostoVE.telefonovendor
                ModAdm_Checking1.ModChkArriboNuevo1.txtMovil.EditValue = _TCentroCostoVE.telefonocelular
                p_TlfPasajero = _TCentroCostoVE.telefonovendor
                p_RpcPasajero = _TCentroCostoVE.telefonocelular
                ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.EditValue = _TCentroCostoVE.vendor & " "
                ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.EditValue = _TCentroCostoVE.centrocostos1.Trim
                p_cntroCostos2 = _TCentroCostoVE.centrocostos2.Trim
            End If
        End If
        Return True
    End Function

End Class